﻿Imports System.ComponentModel
Imports System.Drawing

Public Class legendProp
    Inherits GPropLayer

    Public Sub New(ByVal ln As String, ByVal fn As String, ByVal lt As LAYERTYPE, ByVal bs As Boolean)
        MyBase.New(ln, fn, lt, bs)


    End Sub

    Dim xPosition As Double
    <CategoryAttribute("特定信息"), _
   DisplayName("左上点X值")> _
    Public Property XPositionProperty() As Double
        Get
            Return xPosition
        End Get
        Set(ByVal value As Double)
            xPosition = value
        End Set
    End Property
    Dim yPosition As Double
    <CategoryAttribute("特定信息"), _
  DisplayName("左上点Y值")> _
  Public Property YPositionProperty() As Double
        Get
            Return yPosition
        End Get
        Set(ByVal value As Double)
            yPosition = value
        End Set
    End Property




    '重写的一些属性,下面主要是与点相关的部分，呵呵
    <CategoryAttribute("外观设置"), _
   DisplayName("点类型"), _
   BrowsableAttribute(False)> _
   Public Overrides Property PointtypeProperty() As MapWinGIS.tkPointType
        Get

        End Get
        Set(ByVal value As MapWinGIS.tkPointType)



        End Set
    End Property

    <BrowsableAttribute(False)> _
   Public Overrides Property PointColorProperty() As Color
        Get

        End Get
        Set(ByVal value As Color)

        End Set
    End Property


    <BrowsableAttribute(False)> _
    Public Overrides Property PointsizeProperty() As Double
        Get

        End Get
        Set(ByVal value As Double)

        End Set
    End Property



    <BrowsableAttribute(False)> _
    Public Overrides Property PtUdpImgProperty() As String
        Get

        End Get

        Set(ByVal value As String)

        End Set
    End Property



    '线相关的属性

    <BrowsableAttribute(False)> _
    Public Overrides Property LinetypeProperty() As MapWinGIS.tkLineStipple
        Get

        End Get
        Set(ByVal value As MapWinGIS.tkLineStipple)

        End Set
    End Property


    <BrowsableAttribute(False)> _
    Public Overrides Property LineColorProperty() As Color
        Get

        End Get
        Set(ByVal value As Color)
           
        End Set
    End Property
    <BrowsableAttribute(False)> _
   Public Overrides Property LineWidthProperty() As Double
        Get


        End Get
        Set(ByVal value As Double)
           
        End Set
    End Property



End Class
